MMM MMM GGGGGGGGGGGG 
MMM MMM GGGGGGGGG6GGG 
MMM MMM GGGGGGGGG6G6GG 
MMMMMM = MMMMMM =6GGG 

MMMMMM = MMMMMM =6GGG 

MMAMMM =6MMMMMM =6GGG 

MMM 6 MMM = =OMMM «GGG 

MMM = 6MMM =O MMM «GGG 

MAM = 60OMMM = OMMM «GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG G6GGGGGGGG 
MMM MMM GGG 666666666 
MMM MMM GGG 6GGGGGG6GG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 


C 12 


AAI I tH A tS 
AAA tt tt HH tS tH 
tt tt a St SH Se 


L 

LLELLLELLLLLLLLL 
LLLLLLLLLLLLLLL 
LELLLLLLLLLLLLL 


FE a ee a a el el el el el 


SN 
Ro ono 


J 12 


**F ILE**1D**SMGPUTENC 


Vv ww 
hd Petey 
a) vu 
Vu CoV 
nd Par Ey 
wv Pata 
vw Pate 
ed Pater 


YVVVYVYUYUVYUYUYUY 
YVUVYVVUYUYYYU 


usu ww 
uous ww 
wus uw ww 
uu wow wu 
wi usu ww 
wu usu ww 
tus PreTTTy ww 
usu usu wu 


RR RRR Ree 
el el 


UUUUUUUUUU 
UUUUUUUUUU 


GGGGGGGG PPPPPPPP 
GGGGGGGG PPPPPPPP 


GG GGGGGG PP 


GG GGGGGG PP 
GG 
GG 


nw nnn 
nn YNNMN 
nw nw wun 
wn “nw On 
nw nw ow 
ww nw nn 
nw nw ann 
nn nn ow 
Yynvwn “<4 
YNNN peed 


nn nNnww 
nn NANnNNM 
nw nw 
mown nw 
nn nw 
nw “nw 
nn nw 
nn nw 
nnwnn 
NNNN 


LLLLLLLLLL 
LLLLLLLLLL 


SMGSPUT_VIRTUAL_DISPLAY_ENCODED = Put to virtua 16 Sep-1984 AX-11 Bliss-32 V4.0-7 P 1 
“Seo 1984 9}: 09; 3 SMGRTL.SRCJSMGPUTENC. : 2:1 ee (1) 


ZTITLE *SMGSPUT oyie yA. att Oh ENCODED = Put to virtual display encoded’ 
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{DENT 6° ! File: SMGPUTENC.B32 Edit: RKR1006 
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'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
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7 ALL RIGHTS RESERVED. 
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'® INCLUSION OF tHe ABOVE Sptdhag NOTICE. THIS SOFT ARE y ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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i ABSTRACT: 
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a virtual display buffer. 
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ENVIRONMENT: User mode, Shared Library routines. 
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gl ERTUAL DISPLAY ENCODED - Put to virtua 18-Sep-1984 04h d:86 AX=1 


1 Bliss-32 V4.0-74 
14-Sep-1 SMGRTL SRETSHEPUTENC B42: 
SSBTTL ‘Declarations’ 


| SWITCHES: 


LINKAGES: 

NONE 

TABLE OF CONTENTS: 

FORWARD ROUTINE 

! Public entry points: 

SMGSPUT_VIRTUAL_DISPLAY_ENCODED; ! Move text strings with 

! specially-encoded video attr. 
! information provided. 

INCLUDE FILES 


REQUIRE 'RTLIN:SMGPROLOG'; ! defines psects, macros, tcb, 
! web, & terminal symbols 
REQUIRE ‘RTLIN:STRLNK'; i JSB linkage 
] 
EXTERNAL REFERENCES 
EXTERNAL ROUTINE 
LIBSGET_VM, ! Allocate heap storage 
LIBSFREE_VM, ! Deallocate heap storage 


LIBSANALYZE_SDESC_R2 : LIBSANALYZE_SDESC_JSB_LINK, 
SMGSSCHECK_FOR_OUTPUT_DCB, ! Force output if now is the time 
SMGSSPUT_TEXT_TO_BUFFER, !' Move callers text to virtual 
! display text buffer checking 
! for characters that affect 
where characters land in 


! Invalid virtual display id 
' Invalid pasteboard id 
' Invalid row number 


buffer. 
SMGSSSCROLL_AREA; ! Scroll a rectangular area 
ig | 
SMGS$_FATERRLIB, ! Fatal error in SMG$ -- internal consistancy 
' check failed. 
SMGS$_INVARG, ! Invalid argument 
$ INVCOL, ; Invalid column number 
i 
' 
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Declara 14-Sep-1 SMGRTL.SRCJSMGPUTENC.B32; 1 (2) 
0374 1 SMG$_WRONUMARG; ! Wrong number of arguments 
75 1 !<BLF/PAGE> 


Length_of_postamble) 
bytes 


Text_of_string The actual text. 


one oe gore triplets defining a field within the text 


consisting of: 
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SMGSPUT_VIRTUAL SMGSPUT_VIRTUAL_DISPLAY_ENCODED = Put to virtua 16-Sep-1984 01:11: AX-11 Bliss-32 V4.0-74 
1-006 SMCSPUT-VIRTUAL“DISPLAY-ENCOD D = Output encode 12-8681 382 94349588 SMGRTL. SRCISMGPUTENC.B 2:1 
; (117 1 ZSBTTL ‘SMGSPUT_VIRTUAL_DISPLAY_ENCODED = Output encoded string’ 
; 118 : 1 GLOBAL ROUTINE SMGSPUT_VIRTUAL_BISPLAY ENCODED { 4 - 
; 1 78 1 DISPLAY_ID, 
; 120 79 «1 ENCODED_LENGTH, 
; te 0 1 ENCODED_TEXT : REF VECTOR C,BYTE), 
a , 12 LINE_NO™: REF VECTOR WORD), 
. ¢ 1 COL_NO : REF VECTOR C,WORDJ, 
> 124 1 WRAP_FLAG, 
3 125 4 1 CHAR_SET 
ee 8 > a )= 
3s 1 § 1 44 
: ! 3 f ! FUNCTIONAL DESCRIPTION: 
; 150 0389 1! This routine will qutous the encoded seeing to the explicit 
3 13) 0390 1! virtual display (if DISPLAY_ID is supplied) or to the default 
: 13 0391 1! virtual display (if DISPLAY_ID is not supplied). If LINE_NO 
3; 1 0 8 1! and -NO are omitted, the string is output at the current 
3 13 8 935 1! cursor position. The entire line is rewritten; if the text 
; ’ 2 Baee : does not span the width of the display, blank fill is supplied. 
3 139 Bene 1! This routine is useful to output strings where some but not all 
: «4138 0397 1! of the characters in a string will have video renditions, or 
; 139 0398 1! where different video renditions are desired for characters in 
; 140 +244 1! the same string. 
3 «6141 400 1! 
3 | 0401 1 ! CALLING SEQUENCE: 
; (14 Bene 1! 
3: (144 0405 1! ret_status.wlc.v = SMGSPUT_VIRTUAL_DISPLAY_ENCODED ( 
3: 145 0404 1! DISPLAY_ID-rl.r, 
3 146 0405 1! ENCODED_LENGTH.rlu.r, 
3 «147 0406 1! NCODED TEXT. rab.v 
3; «6148 0407 1! »LINE_QO.rwu.r 
3 149 408 1! O.rwu.r 
3; 150 409 1! »>WRAP_FLAG. rl .rd 
3 31 10 1! CHAR_SET.rl.rJ) 
; 136 7 2 o 
; 13? \§ | FORMAL PARAMETERS: 
3 133 \3 { : DISPLAY_ID.rl.r The display id of the desired display. 
3 4 18 ' ENCODED_LENGTH.rlu.r Length of the encoded text 
3; 139 18 #1! ENCODED_TEXT.rab.v The address of the encoded string to be output. 
3 169 19 : : Format of the encoding is: 
: 196 ? ! text_of_string triplet triplet Length_of_postamble 
: 190 5 ' Tencoded_Tength =~"! “S"Bytes” “"!"S"Bytes™ ~~! “2 Bytes 
3 196 5 1! 
; 16 § 1! 
: 4 1 i 
3 1 § 1! 
; iW Bs: 
ef oe : 2a 
Oe, . 3% 
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Field_start_pos.rwu Starting byte position of a 


13 
SMGSPUT_VIRTUAL SMGSPUT_VIRTUAL_DISPLAY_ENCODED = Put to virtua 16-Sep-19 4 OF dhe AX-11 Bliss-32 V4.0-74 Page 5 
- SMGSPUT_VIRTUAL_DISPLAY_ENCODED = Output encode 14-Sep-1984 13:09:5 SMGRTL.SRCJSMGPUTENC .B852; 1 (3) 
: 174 433 1! field with the text (Numberin 
; 1S? ? 2 : } starts at 1). . 
: 197 § ! Field_length.rwu Length of a field in bytes. 
: 179 4 8 1! Field_attribute.rbu Bits representing video 
; 180 04 1! attributes to be applied to this 
: 13) ree ! } field. 
$ 188 ri 1! Fields have their video attributes applied on a field-by- 
; «6184 445 1! field basis. Portions of the text not contained within a 
3 13? 444 1! field definition have no video attributes applied. See 
: 138 van : } examples below. 
; «6188 Dee? 1! Length_of_postamble.rwu The Length of the postamble -- 
3; «6189 0448 1! consisting of this byte count 
; 190 0449 1! and the sum of the bytes 
3; 6191 0450 1! occupied by the triplets. 
: 136 0451 1! The number of triplets can be 
; 19 Boag 1! calculated as: 
> 194 0455 1! sLongen. ot postaspie - 2) /5 
3; 6195 0454 1! Length_of_postamble must olyaye 
: 196 0455 1! be present - value will be 2 if 
: 197 0456 1! there are no triplets. 
3 198 0457 1! 
; #199 0458 1! Examples: 
; 200 0459 1! 
: 201 0460 1! Length_of 
3 $06 0461 1! postamble Triplets Text 
P4 0 046 1 ' eoecececececeo @4 8 8©8=©66@ @ ee eo eee em fe me 
: 204 0465 1! 7 1 3 code_for_underline ABC 
3 209 0464 1! is ABC underlined. 
; 206 0465 1! 
; 207 0466 1! 12 1 9 code_for_underline 
; 208 0467 1! 6 4 code for_bol ABCDEF GHI 
: 209 0468 1! is ABCDEFGHI with ABCDE underlined and FGHI bolded (not underlined 
3 311 Be H : } and bolded). 
3 1¢ 471 1! Each triplet is treated as an atomic unit; attributes are applied 
ae 4 0472 1! in the order specified. For instance, in the example above, the 
: 214 4735 1! code _for_bold overrides the code_for_underline for letters FGHI. 
; 15 474 1! If the desired result was bold and underline for FGHI, the attribute 
3 18 oh 5 ! would be specified as code_for_bold_OR_code_for_underline. 
; 218 be 1! LINE_NO.rwu.r Optional. Line number at which to start output. 
3 1? po 78 ! If omitted (=0), the current line is used. 
3 A 480 1! COL_NO.rwu.r Optional. Column number at which to start 
: § : 1 : } output. If omitted (=0), the current column is used. 
: 4 . 1! WRAP_FLAG.rl.r Optional. 
3 5 484 1! = 9 means no wrap 
: § 485 1! = 1 means wrap 
: ri $ 1 If omitted, no wrap is the default. 
3 5 4 8 1: CHAR_SET.rl.r Opt tonal. Character set to use. 
: 0 4 1! Choices are: 


13 
SMGSPUT_VIRTUAL SMGSPUT_VIRTUAL_DISPLAY_ENCODED = Put to virtua 1b-5¢ 1984 01:11:4 AX-11 Bliss-32 V4.0-74 P 
e806 SNCSPUT-VIRTUAL-DISPLAY-ENCODED = Output encode 1e-Sepetone $5:09586  EemGRTL SRETSMGPUTENC B$2;1 oo iss 
Bo gd Stuur ayaa, : 
; g 49¢ 1 | SMG$C~SPEC_GRAPHICS ; 
3 234 493 1 | SMGSC_ALT_CHAR ; 
3 5 t3e : SMG$C_ALT_GRAPHICS , 
; 496 1 | IMPLICIT INPUTS: ; 
: 8 499 1! 5 
; 9 rh 1! NONE : 
; 240 Bo8 1! 3 
: 241 500 1 ! IMPLICIT OUTPUTS: ‘ 
3 tg 820) 1! ; 
3 4 5 § 1! NONE : 
: 244 0503 1! F 
; 4S 0504 1 ! COMPLETION STATUS: : 
; 246 0505 1! ‘ 
: 247 0506 1! SS$_NORMAL Normal successful completion F 
> 248 0507 1! LIBS_INSVIRMEM Insufficient virtual memory. ; 
; 249 0508 1! SMG$_INVARG Invalid argument or combination of arguments. : 
; 2a0 0509 1! For example, one of the attribute triplets may : 
.: ae 0510 1 specify a starting byte and number of bytes that ; 
3 26 B21 4 : } extends beyond the length of the string. : 
: 254 0818 1 | SIDE EFFECTS: 
3 09 0514 1! ‘ 
; 256 0515 1! NONE ‘ 
; 257 0516 1 !-- : 
; 58 0517 BEGIN : 
; 259 0518 BUILTIN ; 
3 ret b2dp NULLPARAMETER; : 
: $e 0331 1+ ; 
3 $87 be ; Definitions of part of a attribute triplet. : 
: 265 0834 MACRO ; 
; 266 0525 F_START = 0, 0, 16, 0%, ! Field starting position : 
3 $07 0526 F_LEN = 2, 0, 16, O%, ' Field Length : 
: o8 B F_ATTR = 4,0, 8, 0%; ! Field attribute bits : 
: $8 0529 ¢ LITERAL F 
; 271 530 THRESHOLD = 240, ! If the size of the string 3 
3: 2f 0531 ' we're dealing with is greater 3 
3 haf 05 § ' than this size, allocate 3 
; 274 5 ! buffer from heap storage -- 
s 275 534 ' else use stack buffer. 
an 535 TRIP_SIZE = 5, ' Size of an attribute triplet 
Tae ¢ B2e8 POST_SIZE_FIELD = 2; ' Size of the postambl- length 
: $95 03 i tela 
oO . e ° 
; 80 0839 LOCAL 
: 4 tae LOCAL_BUF: VECTOR CTHRESHOLD, BYTE], ! Local buffer on stack 
: : 245 CSET, ! Character set being used. 
: 5 aie ROW, ! Row in virtual display where next char goes. 
: Hg 546 COL, ! Col in virtual display where next char goes. 

| 
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; SPUT_VIRTUAL SMGSPUT_VIRTUAL_DISPLAY_ENCO 
SMGSPUT VIRTUAL —DI SPLAY-ENCO 


: 288 47 3 
; 289 28 TRIP_START, ! Offset in encoded string of : 
: ay 2 ! Ist attribute triplet. : 
; 38 1 TRIP, ! Index for which attribute ; 
; 5 § ! triplet is currently being 3 
; 9¢ 2 i ! processed. : 
; 555 NO_TRIPS, ! No, of attribute triplets in ; 
; 3 0356 i this string. . ; 
3 99 He PAMBLE_LEN, ! Length of the postamble ; 
: 301 560 T_LEN, ! Lenth of the text part of the ; 
; 8g 329) ! string. 4 ; 
3 pe 0368 STATUS, ! Status of subroutine calls 
: 306 0565 ABUF : REF VECTOR [,BYTE], ! Address of a temporary buffer ; 
; wor 0566 ' to hold the attributes while : 
; 308 peer ! we apply the attributes 3 
; 309 568 ! indicated by the triplets ; 
3 Lb 8298 ! in the input string. : 
: 318 0571 DCB : REF BLOCK C,BYTE]; ! Addr of display control block : 
> 314 0878 ; 
; $12 bere SSMGSVALIDATE_ARGCOUNT (3, 7); : 
; 31 0576 SSMGSGET_DCB ( .DISPLAY_ID, DCB); ! Get addr of display control 

; 318 0577 ! block 

; #319 p28 

; 320 057 + 

; 334 b2e9 : Calculate the lengths and counts of the pieces of this overall string. 

: $§ 0982 " PAMBLE_LEN = (.ENCODED_TEXT C..ENCODED_LENGTH -POST_SIZE_FIELDJ)<0, POST_SIZE_FIELD*8>; 

; 324 058 T_LEN = ..ENCODED_LENGTH = .PAMBLE_LEN; 

; 325 0584 TRIP_START = ENCODED TEXT C.T_LENJ; 

; 36 0385 NO_TRIPS = (.PAMBLE_CEN - POST_SIZE_FIELD) / TRIP_SIZE; 

; 328 0587 2 !+ 

3 $3 F¢3 ' Calc. where this text is supposed to 90 and see if it is a valid 

; 0 0589 ! position. Do this before we potentia ty allocate a heap buffer 

$ Bol Beas ! since if SSMGSVALIDATE_ROW COL exits with a error, we'll never 

3 3 134 : get control back to free the buffer. 

; 334 $398 ROW = (IF NOT NULLPARAMETER (4) THEN .LINE_NO (OJ 

3 335 099% ELSE .0CB [COCB_W_CURSOR_ROW)); 

: 3 239 COL = (IF NOT NULLPARAMETER (5) THEN .COL_NO (0) 

; $ 444 ELSE .O0CB-CDCB_W_CURSOR_COL]); 

; 40 399 SSMGSVALIDATE_ROW_COL ( .ROW, .COL ); 

; 34 601 DCB FOCB_u_ CURSOR ROW = ,ROW; 

: ri rth ne DCB CDCB_W_CURSOR_COLJ = .COL; 
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If needed, get a buffer to hold the attribute bytes. 


ABUF = LOCAL_BUF; ! assume stack space will suffice 
IF -ENCODEDILENGTH GTR THRESHOLD gt Rate Baee 


IF NOT ( STATUS = LIBSGET_VM ( T_LEN, ABUF)) 
RETURN (STATUS); 


Som Ad 
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4 

Initialize the attribute bytes to be the defaults for the display. 
CHSFILL ( .DCB COCB_B_DEF_VIDEO_ATTRI, .T_LEN, .ABUF); 

1+ 

Apply each of the attribute triplets to our temporary attribute buffer 


WN OO OONAVULS WN —OVODOnNOu 


TRIP = 0; 
WHILE .TRIP LSS .NO_TRIPS 
BEGIN ! For each triplet 
LOCAL 
PTR : REF BLOCK C,BYTE); ! Pointer to current triplet 


PTR = .TRIP_START + (.TRIP * TRIP_SIZE); 


OOCOOCOOCOCOCOCOoOoOoO 
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1+ 
! Make sure field start and field Length make sense before 
using them. 


if .PTR F LEN] LSS 0 OR 
.PTR CF[LENJ] + .PTR CF_START] GTR .T_LEN 
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BEGIN ! Bailout 

Hegi SCORED LENGTE GTR THRESHOLD 
BEGIN ! Give back heap first 
LIBSFREE_VM ( T_LEN, ABUF); 
RETURN (~SMGS_IRVARG); 
END; ! Give back heap first 

END; ! Bailout 


CHSFILL ( .PTR CF_ATTRI, 
. . LENJ 
Apur € <PTR EF_START] -1) ); 


TRIP = .TRIP + 1; 
END; ! For each triplet 
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Attribute character 
io. of bytes in field 
Start of attribute 
area to be changed. 
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Now that we know the byte by byte attributes that need to go into 
the DCB's attribute buffer -- put the text and the attributes in 
n the DCB's buff 


‘ 

i 

i 

; 4% ers. 

: NOTE: This chunck of code should be made smarter by having it 

! call SMGSSPUT_TEXT_TO_BUFFER with batches of characters that have the 
same attributes instead of character by character. 
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-IDENT \1-006\ 


-EXTRN LIBSGET_VM LIBSEREG . VM 
*EXTRN LIBSANALYZE 

-EXTRN SMGS$S$CH reer OUTPUT DCB 
y ft SMGS$ PUT TEXT T0_BU UFFER 


LL_A 
-EXTRN SMG$ PATERRCIG. its INVARG 
EXT SMGS_ JO1S_ ID 
-EXTRN SMG$_ INVPAS ooaGs. INVROW 
-EXTRN SMGS$_WRONUM Kae’ 


-PSECT _SMGSCODE.NOWRT, SHR, PIC,2 


OFFC 00000 eENTRY seseur VIRTUAL_DISPLAY_ENCODED, Save R2,- ; 0 
RS.RO2R7,RB,R9.RIO,R11 : 
SE FFO4 ee MOV R365 {ER} : 
50 gf SUBB x cp ser : 0574 


CMPB. sé‘ F F 
08 i! 9 BLEQU 1 : 
50 000000006 gf 01 MOVL § #SMGS$_WRONUMARG, RO : 


SMGSPUT_VIRTUAL SMGSPUT_VIRTUAL_DISPLAY_ENCODED = Put to virtua 16-Sep-1984 01:11:4 AX=11 Bliss-32 v4.0-7 Page $! 
e806 SMGSPUT_VIRTUAL_DISPLAY— ENCODED = Output encode 1 1h-bep-1944 9}: : § SMGRTLe SRC SMGPUTENC. 5 2:1 . 1 
; 40 66 CSET = (CIF NOT NULLPARAMETER (7) THEN » CHAR_SET . 
; 403 $6 ELSE 6); : 
; 405 664 INCR I FROM 0 TO .T_LEN-1 . 
3 ane 665 DO ; 
; 40 998 BEGIN ! Put text into buffer ; 
; 408 667 4 IF NOT ( STATUS = Nae “TEXT _TO_BUFFER (¢ . 
; 409 668 4 DCB ' DCB addr ° 
> 410 669 4 “ABUF C.1), i attr byte : 
3; 6411 6 4 ' Text length ; 
3 tig 671 4 ENCODED_TEXT Eelde ' Text byte . 
3; «(41 Boog 4 CSET)) ' Char set ‘ 
; 416 67 THEN ‘ 
3; 415 0674 RETURN (.STATUS); : 
; 416 bee 3 
3; 417 O76 END; ! Put text into buffer : 
; 418 067 ; 
3 419 0678 '+ : 
3 ? . +44 Z Release the temporary buffer we've been using if in heap storage. : 
3 : ¢ bees M . -ENCODED_LENGTH GTR THRESHOLD : 
3 ? r aes IF NOT (STATUS = LIBSFREE_VM ( T_LEN, ABUF)) : 
; 426 0685 RETURN ( .STATUS); é 
3; 427 pene . 
; 428 06 RETURN (SMGSSCHECK_FOR_OUTPUT_DCB ( .0CB é 
> 429 0688 Smcs¢ PUT_DISPLAY_ENCODED, F 
; 430 0689 ROW : 
; «431 0690 END; ! End of routine’ SNGSPUT_VIRTUAL_DISPLAY_ENCODED ; 

-TITLE SMGSPUT_VIRTUAL_DISPLAY_ENCODED SMGS$PUT_VIRTUAL é 
3 DISPLAY_ENCODE 3 
; B - Put fo virt 3 
; ua 3 


SMGSPUT_VIRTUAL sneerul -VIRTUAL_D 
1 <VIRTUAL_D 


meseuT. Put to virtua 18-50 g0n7 198% 9: Abie AX-11 Bliss-32 V4.0-74 Page Rs 


Output encode 14-Sep-1 SMGRTL.SRCJSMGPUTENC.B32;1 


“2 


04 00017 RET ; : 

50 6 eo 0 18 1$: MOVL DISPLAY_ID, RO + 0576 ; 

A MPL RO), SDISPLAY_ID s ; 

046 BC rf Ab 1 cmPL (RO), SDIS ; 

11 44 AS CPB (RO), #17 : : 

50 000000006 gf v6 2$: ROVL WSMG$_INVDIS_ID, RO : ; 

57 04 BC 00 8 3$: MOVL_ @DISPLAY_ID, 0CB : ; 

50 0c A 08 ib gt 0 3 ADDL aENCODED LEN “LENGTH, ENCODED_TEXT, RO + 0582 ; 
08 AE ;. & 5 C3 0 F SUBL3 PAMBLE_LEN NS BERG ODED _LENGTH, T_LEN : 0585 ; 
6E tt & 08 AE C 45 ADDL3 ‘T_LEN, "ENCODED_TEXT, TRIP_START : 05 ; 
50 0 Cg 0048 SUBL a2. Rb + 0585 : 

5B 50 § 04 DIVL NO_TRIPS : ; 
04 C 91 0005 CMPB tab)" Th : 0593 F 

B iF 0005 BLSSU : ; 

10 Ac D5 905 TSTL  16¢AP) : ; 

06 1 OSA BEQL : 3 

59 10 BC 3 0005¢ MOVZWL @LINE_NO, ROW : ; 

04 11 00060 BRB : ; 

59 28 «AT 3¢ 0062 4$: MOVZWL 40(DCB), ROW + 0594 ; 

05 6C 91 00066 5S: CMPB. CCAP), #5 + 0596 ; 

OB 1F 00069 BLSSU : : 

16 AC 05 0068 TSTL O(AP) : ; 

06 1 O06E BEQL z : ; 

50 146 BC 3C 000 MOVZWL @COL_NO, COL ; : 

04 11 00074 BRB 7 : ; 

50 2a AT 3¢ 0076 g$: MOVZWL 42(DCB), COL : 0597 ; 

59 05 0007A 7S: TSTL ROW : 0599 ; 

08 15 0007¢ BLEQ = 8S ; ; 

59 02 a7 10 00 FD 007E CMPZ2V #0, #16, 2(DCB), ROW : ; 
08 8 00084 BGEQ : ; 

50 000000006 8F p0 0086 8$: MOVL  #SMG$_INVROW, RO ; ; 

50 BS Mitt 9$ rete COL : 

08 15 90 BLEG ~=-10$ ; : 

50 06 A7 10 0 FD 09 CMPZ7V #0, #16, 6(DCB), COL : ; 
08 : 009. BGEQ ; ; 

50 000000006 &F B0 009A 10S: MOVL #SMGS_INVCOL, RO ; ; 

@ a7 59 80 Ae 11$:  MOVW ROW, 40(DCB) > 0601 ; 

A A? 0 . MOVW COL 42(DCB) > 0602 ; 

4 AE Oc AE E AA MOVAB LOCAL BUF, ABUF : 060 ; 

SA D AF CLRL : 060 ; 

Q000000FO 8F 08 BC p B1 CMPL § @ENCODED_LENGTH, #240 : ; 

sR be 0008B AEE orto : 

04 AE oF B PUSHAB ABUE + 0609 3 

C AE 9F 000C PUSHAB ; : 

000000006 Q F ¢ CALLS Ret “Erpscer _vM : : 

D CA MOVL : : 

0 C BLBS erATOS $ ; 3 

OOA BRW ; 3 

08 AE 2 «A? i 00 2¢ Ds 128:  MOovcS #0, (SP), 46(DCB), T_LEN, @ABUF + 0616 ; 
13 d4 0000 CLRL =—s*TRIP > 0621 : 


SAgseUT 
-006 


02 


3; Routine Size: 


3; 432 


VIRTUAL SMGSPUT_VIRTUAL_DISPLAY_EN 
SMGSPUT ~VIRTUAL -D1SPLAY~EN 


58 


: 


15 


08 


000000006 


A2 04 A2 


000000006 


DF 


000000006 


000000006 00 
391 bytes, 


0691 1 !<BLF/PAGE> 


C 
C 


0 
i 000000006 


Routine Base: 


ODED ~ Put to virt 


ODED = Output 


o¢ 


04 
FF 


1C 
1C 


oc BC 
10 BE 


08 


04 
oc 


uw 
UNWO DWOOKMIMM S MOOI MW S“WINIOAODONAOOMMN OMmmMmm > COO—TPIMUILEO 


OM VIVIMOP Pie Vs own LOL MN OMOTDoroeGIuiPorOo COOP PUI uvierKyPoosr 


_SMGSCODE 


en 


OMOOCCOCIMS OOM MMO "SOS 09-2090 $9 $9 | 0-9 NVMOWOO"OOM—GVOWUWOO-Oo 


~ 


SoS &£OO9OS £FOOOO *" OVO0OTS F979 STH EF OWI BS SDP MOO FMD BO" OOM 10 — 


So 
So 
So 


now 


3 
ep 1984 


13$: 


for 


73:0 


co 


NHN HMMmMmMml oS 
S=MDOUN "DWM oS 
=z 
o 
<= 
~ 
= 
e 


14$: 


B 
15$: CMPB 


iad 
NO 
PA 


18$: 


19$: 


ODOOOoCOCOOOOOOSOOOOCOOOOOOOoOoOOoOSo 
COOOOCOCOOOOOCOOSOSOSSOSOSCOOSOSSSSSOOSOOOCOCOOCSOOSCOSOOOOSOOSOOOSOSOOSOO ac 


VIII SNE ODA LOMO ON MOS NVI & oO 
@o 
@ 


20$: MOVL 
218: 


Couns” 
@ 
- 
@ 
“ 


i a ee ee a ce ee ee a ce ed ae ed ed ed ed aed od aed ed = OO OOOOOOCOO 8 & 
beak =] 


3 eet Bliss-32 V4.0-74 
: SMGRTL.SRCJSMGPUTENC .B52; 1 


TRIP, NO_TRIPS 

TRIP, RO 

P START, RO, PTR 
rm), RO 

rb 
T_LEN 


EN 
#2, LIBSFREE_VM 
SMG$_INVARG, RO 


(PTR), RO 

ABUF R 

#0, (SP), 4(PTR), 2(PTR), -1(RO) 
TRIP 

13$ 

(AP), #7 

28 (AP) 

16$ 

aCHAR_SET, CSET 

17$ 

CSET 

“i, i 

19$ 

CSET 

@ENCODED_TEXTLI) 

@ABUFLIJ, -(SP) 

#5, SMGSSPUT_TEXT_TO_BUFFER 

RO, TUS 

nt OFS 
aTb 514 
ABUF 
T_LEN 

2, LIBSFREE_VM 

RO, STAT 

STATUS, 21$ 

STATUS, RO 

ROW 

#19 

bce 

#3, SMGSSCHECK_FOR_OUTPUT_DCB 


"mn 


Memory Used: 148 pages 
Compi.ation Complete 


SMGSPUT_VIRTUAL SMGSPUT_VIRTUAL L piste LAY_ENCODED = Put to virtua 1b-50 -S$ep-1984 AX-11 Bliss-32 V4.0-74 Page 12 $ 
1 SMGSPUT_VIRTUAL_DISPLAY_ENCODED = Output encode 1 Beta et 9}: 9; ¢§ SMGRTL.SRC SMEPUTENC. 69251 . (4) 1 
: o35 Oes ! END ! End of module SMGSPUT_VIRTUAL_DISPLAY_ENCODED ; 
; 6 694 0 ELUDOM 
: PSECT SUMMARY : 
: Name Bytes Attributes 3 
;  _SMGSCODE 391 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) ; 
; Library Statistics ; 
te eer et oe Symbols -------- Pages Processing ; 
3 File Total Loaded Percent Mapped me : 
: $ SS$DUA28: SYSLIBISTARLET.L 32:1 9776 3 0 581 00:01.0 ; 
: ~$255$D MGRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 3 
; Ritts $ SmCRIC: OBJ JSMGLIB.L32;1 469 11 2 38 00:00.4 : 
: COMMAND QUALIFIERS 3 
; GLISS/CHECE SCF IELD. INET IAL OPT SALLE) /MOTRACE/L [Sei 558: SHEPUTENC/0BJ 9085 : SREPUTENC MSRC$: SMGPUTENC/UPDATE=(ENH$: SMGPUTENC : 
; Size: 391 code + 0 data bytes F 
3; Run Time 0: +43 ‘ 
3 dl sed Tine: Fe 8.1 3 
3 Lines/CPU Min: $ 3 3 
3; Lexemes/CPU-Min: 1486 : 


Asi A AH-BT13A-SE | ENT CORPORATION 
v VAX/VMS V4.0 - AND PROPRIETARY 


